home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / gnu / smaltalk.lha / smalltalk-1.1.1 / stix / Arc.st next >
Text File  |  1991-09-12  |  2KB  |  79 lines
  1. "======================================================================
  2. |
  3. | Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  4. | Written by Steve Byrne.
  5. |
  6. | This file is part of GNU Smalltalk.
  7. |
  8. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  9. | under the terms of the GNU General Public License as published by the Free
  10. | Software Foundation; either version 1, or (at your option) any later version.
  11. | 
  12. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  13. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  14. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  15. | details.
  16. | 
  17. | You should have received a copy of the GNU General Public License along with
  18. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  19. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  20. |
  21.  ======================================================================"
  22.  
  23.  
  24. "
  25. |     Change Log
  26. | ============================================================================
  27. | Author       Date       Change 
  28. | sbyrne     24 May 90      created.
  29. |
  30. "
  31.  
  32. Object subclass: #Arc
  33.        instanceVariableNames: 'origin size angles'
  34.        classVariableNames: ''
  35.        poolDictionaries: ''
  36.        category: 'X hacking'
  37. !
  38.  
  39. !Arc class methodsFor: 'instance creation'!
  40.  
  41. new: originPoint size: sizePoint angles: anglesPoint
  42.     ^self new origin: originPoint size: sizePoint angles: anglesPoint
  43. !!
  44.  
  45.  
  46. !Arc methodsFor: 'accessing'!
  47.  
  48. origin
  49.     ^origin
  50. !
  51.  
  52. size
  53.     ^size
  54. !
  55.  
  56. angles
  57.     ^angles
  58. !!
  59.  
  60.  
  61. !Arc methodsFor: 'writing'!
  62.  
  63. emitTo: aPacket
  64.     aPacket point: origin.
  65.     aPacket point: size.
  66.     aPacket point: angles
  67. !!
  68.  
  69.  
  70. !Arc methodsFor: 'private'!
  71.  
  72. origin: originPoint size: sizePoint angles: anglesPoint
  73.     origin _ originPoint.
  74.     size _ sizePoint.
  75.     angles _ anglesPoint
  76. !!
  77.      
  78.  
  79.